0 ONN+1GOTO1000,1060,400:REM"[141]
1 [129]R[178](([194](CB)[175]A6)[170]A8)[172]K1[170]P[172]A8[164]R[170]A7:Q[178][194](R):[129]W[178]A7[164]0[169][171]1
2 [151]Z,B3[171]((Q[175]P(W))[178]P(W))[172]B1:Z[178]Z[170]A1:[130]:Z[178]Z[170]B3:[130]:[142]
3 [143]"GOSUBSYS
4 PRINT""P"[157]  ":R=PAND127:PRINT""A%(R)"[157]   ":T$="  [146][146]"
5 IFR>95THENT$=" C":GOTO7
6 IFR>63THENT$=" S"
7 IFP>127THENT$="[151]R[146]"+RIGHT$(T$,3)
8 PRINT""T$:POKE1588,P:POKE1152,P%(N%(R)):RETURN
9 REM"[141]
10 [161]T$:[139]T$[178]""[167][151]V2,[171](([194](162)[175]16)[178]0):[141]4:[137]10
12 [139]T$[178]""[167]X[178](X[170]1)[175]31:[137]44
14 [139]T$[178]"CMD"[167]X[178](X[171]1)[175]31:[137]44
16 [139]T$[178]""[167]Y[178](Y[170]1)[175]7 :[137]44
18 [139]T$[178]"ON"[167]Y[178](Y[171]1)[175]7 :[137]44
20 [139]T$[178][199](13)[167]55
22 [139]T$[178]"_"[167]R[178]53281:W[178]14:[158]65409:[151]R,W:[158]65418:[158]65412:[137]1200
24 [139]T$[178]"R"[167]R[178]16432:[151]R,0:[146]197,64:[151]R,8:[151]198,0
26 [139]T$[179][177]"N"[176]Y[177]3[167]28
27 [129]R[178](([194](CB)[175]A6)[170]A8)[172]K1[170]P[172]A8[164]R[170]A7:[151]R[170]K1,B2[171][194](R):[130]:[137]10
28 [139]T$[178]"INPUT"[167]650
30 [139]T$[178]" "[167]Q[178]0:[129]R[178](([194](CB)[175]A6)[170]A8)[172]K1[170]P[172]A8[164]R[170]A7:[151]R,T%(Q):Q[178]Q[170]A1:[130]
32 [139]T$[178]"L"[167]230
34 [139]T$[178]"S"[167]250
36 [139]T$[178]"E"[167][158]65409:[158]65418:[158]65412:[153]" END.":[128]
40 [137]10:[143]"GOSUBSYS
44 R=X*A8+B5:POKEV,RANDB2:POKEV1,-(R>B2):POKEV+A1,Y*A8+C1:P=Y*B3+X:GOTO10
55 POKEV2,0:GETT$:IFT$THEN55
56 POKEV+21,PEEK(162)AND1:GETT$:IFT$=""THEN56
57 R=ASC(T$):IFR=255THENR=126
58 IFR>223THENR=R-64
59 IFR>191THENR=R-96
65 R=O%(R):X=RAND31:Y=INT(R/B3)
66 POKEV+21,1:WAIT197,64:POKE198,0:GOTO44
229 REM"[141]
230 [141]300:[153]"    HAETAAN MERKKITIEDOSTO.ANNA NIMI
240 A$="":INPUT"    ";A$:N=2:IFA$=""THEN400
246 POKE16432,0:LOADA$,8,1
249 REM"[141][158]
250 [141]300:[153]"    TALLETETAAN MERKIT LEVYLLE.
251 PRINT"    '1' ;12-14 K [205][197][210][203][201][212]":PRINT"    '2' ;14-16 K MERKIT
252 [153]"    '3' ;MOLEMMAT":[151]198,0
253 [161]T$:T[178][197](T$):[139]T[179]1[176]T[177]3[167]253
254 AO[178]48[171]8[172](T[178]2):LO[178]56[171]8[172](T[177]1):[141]300:[153]"    ANNA NIMI"
255 N$[178]"":[133]"    ";N$:[139]N$[178]""[167]400
256 W[178][195](N$):[139]W[179]1[176]W[177]16[167]250
257 NI$[178]"0:"[170]N$:[159]15,8,15,"S"[170]NI$:[160]15:W[178]W[170]2
260 T$[178]NI$:R[178][194](53)[170][194](54)[172]256[171]W:[151]782,R[173]256
261 [151]781,R[171][194](782)[172]256:[151]780,W:[158]65469
262 [151]780,1:[151]781,8:[151]782,1:[158]65466
263 [151]254,AO:[151]253,0:[151]780,253:[151]782,LO:[151]781,0
296 [158]65496
297 [151]16432,0:[137]400
299 [143]"GOSUB
300 POKEV+21,0:PRINT"":FORR=1TO4
302 PRINT"                                      ":NEXT:PRINT"[145][145][145][145][145]":RETURN
399 REM"[141][158]
400 [141]300:[153][163]17)"POKESTEP(null)(null)STEP
401 PRINTTAB(17)"F1F7
402 [153][163]17)"STEP(null)(null)STEP
404 POKE16432,8:POKEV+21,1:GOTO44
549 REM"[141][159]
650 [151]V2,A1:Z[178]1080:[141]1:XX[178]0:YY[178]0:[151]V[170]21,0:[151]V1,0:[151]V[170]39,15
655 R[178]XX[172]A8[170]D1:[151]V,R[175]B2:[151]V[170]1,YY[172]A8[170]D5:PP[178]YY[172]D4[170]XX[170]KL:[151]V[170]21,1
670 [161]T$:[139]T$[178]""[167][151]V2,[171](([194](162)[175]16)[178]0):[137]655
672 [139]T$[178]""[167]XX[178](XX[170]1)[175]7:[137]655
674 [139]T$[178]"CMD"[167]XX[178](XX[171]1)[175]7:[137]655
676 [139]T$[178]""[167]YY[178](YY[170]1)[175]7:[137]655
678 [139]T$[178]"ON"[167]YY[178](YY[171]1)[175]7:[137]655
680 [139]T$[178]" "[167][151]PP,([194](PP)[170]B1)[175]B2:[137]655
682 [139]T$[178]"N"[167][129]R[178]KL[164]1360[169]D4:[129]W[178]0[164]A7:[151]R[170]W,([194](R[170]W)[170]B1)[175]B2:[130]:[130]
684 [139]T$[178]"LET"[167][151]V[170]21,0:[137]787
688 [139]T$[179][177]"+"[167]692
689 [129]R[178]1084[164]1364[169]40:[129]W[178].5[164]3.5:Q[178][194](R[170]W):[151]R[170]W,[194](R[171]W):[151]R[171]W,Q
690 [130]:[130]
692 [139]T$[179][177]"-"[167]700
693 [129]R[178]1240[164]1247:[129]W[178]0[164]120[169]40:Q[178][194](R[170]W)
694 [151]R[170]W,[194](R[171]W[171]D4):[151]R[171]W[171]D4,Q:[130]:[130]
700 [143]
777 [137]655:[143]"GOSUB
787 Q=0:POKEV+39,6:POKEV2,1:FORYY=1080TO1360STEPD4:T%(Q)=0:FORXX=0TOA7
788 T%(Q)=T%(Q)-P(7-XX)*(PEEK(YY+XX)=CR):NEXT:Q=Q+A1:NEXT:POKEV+21,1:GOTO44
998 REM"[141][158]
999 [143] : VIDEO & EDITOR -INI : COLORS          : VECTOR & IRQ -INI : SID-INI  :
1000 [151]56,47:[156]:A[178]53265:B[178]11:[158]65409:[151]A,B:[158]65418:[158]65412:[156]
1002 [153]"LOADRETURN    (null)=RIGHT$=TANORTANRIGHT$= == ==   (null)=RIGHT$(null)TANRIGHT$= ==TANORTANRIGHT$
1004 PRINT"    [221][221][221][221] [221] [221][221][213][203][221][213][203][221]   [221][221][221][221] [221][221][213][203][221] [221] [221]
1006 [153]"    (null)(null)(null)-<-=(null)-< -< (null) TAN (null)(null)(null)-TAN<-< -<-=(null)
1008 PRINT"    [221] [221][221] [221][202][201][221][202][201][221][202][201][221]   [221] [221][221] [221][221][202][201][221] [221][202][201]
1010 [153]"    > >>TAN> >> >> >>   > >> >> >>TAN> >
1020 PRINT"RAM-MERKKIEN TEKEMISEEN MUISTIIN 12-16 K                  [155]V2.3
1022 [153]"    JOSE GRONSTRAND 02.08.1984 ESPOO
1024 PRINT"  [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
1050 [151]53281,14:[151]53265,27
1055 N[178]1:[129]R[178]16384[164]R[170]9:Z[178]Z[170][194](R):[130]:[139]Z[179][177]1154[167][141]2200
1060 [156]:[134]P%(64):W[178]16488:[129]R[178]0[164]64:P%(R)[178][194](W[170]R):[130]
1061 [153]"ON  POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS
1070 DIMA%(127):FORR=0TO31:A%(R)=R+64:A%(R+96)=R+160:NEXT
1072 FORR=32TO63:A%(R)=R:NEXT:FORR=64TO95:A%(R)=R+32:NEXT
1073 PRINT"[145]  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
1074 [134]N%(127):W[178]16555:[129]R[178]0[164]127:N%(R)[178][194](W[170]R):[130]
1075 [153]"ON  TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
1076 DIMO%(191):FORR=0TO127:O%(A%(R))=R:NEXT
1077 PRINT"[145]                                      [145]
1080 V[178]53248:V1[178]V[170]16:V2[178]V[170]27:[151]2040,13:[134]T%(7):A1[178]1
1082 CB[178]53272:A6[178]6:A8[178]8:K1[178]1024:A7[178]7:B3[178]32:B1[178]128:[129]R[178]0[164]7:P(R)[178]2[174]R:[130]
1090 X[178]0:Y[178]0:B2[178]255:B5[178]56:C1[178]186:D1[178]152:D5[178]58:D4[178]40:KL[178]1080:CR[178]160
1153 :
1154 :
1160 [129]R[178]832[164]R[170]62:[151]R,0:[130]:W[178]255:[129]R[178]832[164]R[170]21[169]3:[151]R,W:[130]
1174 C$[178]"STOPPOKEPRINT#LISTLISTPRINT#POKE":R[178]0:[151]198,0
1177 [153][202](C$,R[170]1,1)"  PAINA JOTAIN ; 'O' JOS HALUAT OHJEETON":R[178](R[170]1)[175]7
1180 [161]T$:[139]T$[178]""[167]1177
1182 [139]T$[179][177]"O"[167]1400:[143]"GOSUB
1200 PRINT"[147]
1202 [153]"TOTOTOTO   HAKU/PANO KOMENNOT:ABS
1204 PRINT"[195][210][211][210][146] ;KURSORIN LIIKUTUS
1206 [153]"F1WAIT   ;SIIRRA MERKKI EDITORIIN
1208 PRINT"[183][183][183][183][146] ;SIJOITETAAN EDITOITU MERKKI
1209 [153]"LEN=SHIWAIT;KYTKEE 12K-(null)VAL(null)(null)RIGHT$(null) / 14K-MERKIT
1210 PRINT"[206][146]    ;TEE MERKIN NEGATIIVIMERKKI
1212 [153]"(null)WAIT    ;(null)ATN(null)VAL TALLETA MERKIT LEVYLLE
1214 PRINT"[204][146]    ;[204][207][193][196] HAETAAN MERKIT LEVYLTA
1216 [153]"_WAIT    ;KOMENTO-OHJEET ESIIN (NAMA)
1217 PRINT"[197][146]    ;[197][206][196] LOPETUS
1218 [153]"(null)WAITTOTO  ;(null)(null)(null)-MERKIT VERTAILTAVAKSI
1220 PRINT"RET[146]  ;OSOITA MERKKI, JOKA SAADAAN
1222 [153]"      NAPPAIMISTOLTA SEURAAVASTI...
1224 PRINT"[164][164][164][164]   EDITOR KOMENNOT:[182]
1226 [153]"LEN(null)(null)(null)WAIT ;KURSORIN LIIKUTUS
1228 PRINT"[183][183][183][183][146] ;VAIHDA KURSORIN ALAINEN BITTI
1230 [153]"(null)WAIT    ;MUUTA MERKKI NEGATIIVISEKSI
1232 PRINT"+[146]    ;PEILAA MERKKI (PYSTYAKSELI)
1234 [153]"-WAITTO   ;PEILAA MERKKI (VAAKAAKSELI)
1236 PRINT"F7[146]   ;POISTU EDITORISTA
1250 [153]"TO      JOS PAINAT NYT:ABS
1252 PRINT"1[146]    ;TUODAAN [210][207][205] MERKIT ALAS
1254 [153]"2WAIT    ;TUODAAN ROM MERKIT ALAS
1290 PRINT"";:R=0:POKE198,0
1292 PRINTMID$(C$,R+1,1)"      [208][193][201][206][193] [202][207][212][193][201][206][145]":R=(R+1)AND7
1294 GETT$:IFT$=""THEN1292
1295 IFT$="1"THENPOKE251,0:POKE252,208:POKE253,0:POKE254,48:SYS16688
1296 IFT$="2"THENPOKE251,0:POKE252,216:POKE253,0:POKE254,56:SYS16688:REM"[141][158]
1400 [153]"LOAD	RETURN":[151]53280,0:[151]53281,0:[158]16384:[143] SPECIAL IRQ-SET ON
1455 [153]"LOAD                TOTOTOTOTOTOTOTO
1457 PRINT"POKE:          [167]        [165]
1459 [153]"ASC :          THEN        FN
1461 PRINT"KEYS:   [152]       [167]        [165]
1463 [153]"               THEN        FN
1465 PRINT"               [167]        [165]
1467 [153]"               THEN        FN
1469 PRINT"               [167]        [165]
1471 [153]"               THEN        FN
1473 PRINT"            [160][160][160][160][163][163][163][163][163][163][163][163][160]
1480 [141]1488:[137]1500
1488 [153][163]17)"POKESTEP(null)(null)STEP
1489 PRINTTAB(17)"F1F7
1490 [153][163]17)"STEP(null)(null)STEP":[142]
1500 [153]"":[129]R[178]1[164]3:[153]
1502 [153][163]4)"POKE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";:[130]:[129]R[178]1[164]8:[153]
1504 [153][163]4)"PRINT#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";:[130]:[153]"
1510 M=1708:J=1.25
1511 FORR=1708TO1739:FORW=0TO280STEP40:POKER+W,R-M+W/J:NEXT:NEXT
1580 POKEV+39,6:POKEV+27,1:P=0:POKE16432,8:REM SWITCH ON IRQ-MODE-CHANGE
1590 POKEV,56:POKEV+1,186:POKEV+16,0:POKEV+21,1:POKE198,0:GOTO10:REM"[141][159]
2200 [129]R[178]16384[164]16722:[135]A:[151]R,A:[130]:[142]
2222 [131]120,169,127,141,13,220,169,34,141,20,3,169,64,141,21,3,169,27,141,17
2224 [131]208,169,162,141,18,208,169,129,141,26,208,88,96,0,169,1,141,25,208
2226 [131]173,18,208,16,20,173,24,208,9,8,141,24,208,169,0,141,18,208,76,188
2228 [131]254,0,0,0,0,173,24,208,41,246,141,24,208,173,22,64,141,18,208,162,0
2230 [131]173,52,6,157,52,6,157,92,6,157,132,6,232,224,32,208,242,76,49,234,0
2232 [131]0,0,0,255,255,255,255,255,255,255,255,51,23,1,52,26,19,5,255,53,18
2234 [131]4,54,3,6,20,24,55,25,7,56,2,8,21,22,57,9,10,48,13,11,15,14,43,16,12
2236 [131]45,46,58,0,44,28,42,59,255,255,61,30,47,49,31,255,50,32,255,17,255
2238 [131]255,0,0,46,10,28,20,18,14,21,26,29,33,34,37,42,36,39,38,41,62,17,13
2240 [131]22,30,31,9,23,25,12,45,48,50,54,57,60,56,59,8,11,16,19,24,27,32,49
2242 [131]40,47,43,44,55,35,56,59,8,11,16,19,24,27,32,45,50,47,53,44,55,49,10
2244 [131]28,20,18,14,21,26,29,33,34,37,42,36,39,38,41,62,17,13,22,30,31,9,23
2246 [131]25,12,40,43,43,54,49,60,37,33,22,46,26,40,36,48,48,39,62,18,12,13,41
2248 [131]10,14,17,9,29,34,42,25,30,38,46,21,20,23,31,28,0,0,0,0,0,120,165,1
2250 [131]41,251,133,1,160,0,162,0,177,251,145,253,200,208,249,230,252,230,254
2252 [131]232,224,8,208,240,165,1,9,4,133,1,88,96